home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1998 June / Software of the Month Club 1998 June.iso / pc / dos / games / dom1 / liner.rpp < prev    next >
Text File  |  1998-04-15  |  576b  |  57 lines
  1. { this is a super simple screen saver}
  2.  
  3. var x:number;
  4. var y:number;
  5. var index:number;
  6. var dx:number;
  7. var dy:number;
  8. var color:number;
  9.  
  10. randomize;
  11. setcolor(15);
  12. color:=1;
  13.  
  14. x:=rand(1,319);
  15. y:=rand(1,199);
  16.  
  17. dx:=1;
  18. dy:=1;
  19.  
  20. loop (index=0 to 1000)
  21.  
  22. x:=x+dx;
  23. y:=y+dy;
  24.  
  25. if (x>=319)
  26. dx:=-1*dx;
  27. color:=color+1;
  28. endif;
  29.  
  30. if (x<=0)
  31. dx:=-1*dx;
  32. color:=color+1;
  33. endif;
  34.  
  35. if (y>=199)
  36. dy:=-1*dy;
  37. color:=color+1;
  38. endif;
  39.  
  40. if (y<=0)
  41. dy:=-1*dy;
  42. color:=color+1;
  43. endif;
  44.  
  45. if (color>=255)
  46. color:=0;
  47. endif;
  48.  
  49. setcolor(color);
  50.  
  51. plot(x,y);
  52.  
  53. endl;
  54.  
  55.  
  56.  
  57.